|
525
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
// Occurs after a new item has been inserted to Items collection.
Procedure OnComInsertItem HITEM llItem
Forward Send OnComInsertItem llItem
Variant i
Variant vA
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemToIndex of hoItems llItem to vA
Send Destroy to hoItems
Get ComFormatABC "value + 1" vA Nothing Nothing to i
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellImage of hoItems1 llItem 3 to i
Send Destroy to hoItems1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Col-1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Col-2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Check" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComDef of hoColumn2 OLEexCellHasCheckBox to True
Set ComDisplayFilterButton of hoColumn2 to True
Set ComDisplayFilterPattern of hoColumn2 to False
Set ComFilterType of hoColumn2 to OLEexCheck
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Image" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComDisplayFilterButton of hoColumn3 to True
Set ComFilterType of hoColumn3 to OLEexImage
Set ComFilterList of hoColumn3 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Pos" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComAllowSizing of hoColumn4 to False
Set ComAllowSort of hoColumn4 to False
Set ComWidth of hoColumn4 to 32
Set ComFormatColumn of hoColumn4 to "1 apos ``"
Set ComPosition of hoColumn4 to 0
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "Sub-Item A"
Variant h
Get ComAddItem of hoItems2 "Item B" to h
Set ComCellCaption of hoItems2 h 1 to "Sub-Item B"
Set ComCellState of hoItems2 h 2 to 1
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item C")) 1 to "Sub-Item C"
Send Destroy to hoItems2
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComItem of hoColumns5 0 to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFilterType of hoColumn5 to OLEexFilter
Set ComFilter of hoColumn5 to "Item A|Item B"
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComItem of hoColumns6 2 to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComFilter of hoColumn6 to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
524
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
// Occurs after a new item has been inserted to Items collection.
Procedure OnComInsertItem HITEM llItem
Forward Send OnComInsertItem llItem
Variant i
Variant vA
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemToIndex of hoItems llItem to vA
Send Destroy to hoItems
Get ComFormatABC "value + 1" vA Nothing Nothing to i
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellImage of hoItems1 llItem 3 to i
Send Destroy to hoItems1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Col-1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Col-2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Check" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComDef of hoColumn2 OLEexCellHasCheckBox to True
Set ComDisplayFilterButton of hoColumn2 to True
Set ComDisplayFilterPattern of hoColumn2 to False
Set ComFilterType of hoColumn2 to OLEexCheck
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Image" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComDisplayFilterButton of hoColumn3 to True
Set ComFilterType of hoColumn3 to OLEexImage
Set ComFilterList of hoColumn3 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Pos" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComAllowSizing of hoColumn4 to False
Set ComAllowSort of hoColumn4 to False
Set ComWidth of hoColumn4 to 32
Set ComFormatColumn of hoColumn4 to "1 apos ``"
Set ComPosition of hoColumn4 to 0
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "Sub-Item A"
Variant h
Get ComAddItem of hoItems2 "Item B" to h
Set ComCellCaption of hoItems2 h 1 to "Sub-Item B"
Set ComCellState of hoItems2 h 2 to 1
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item C")) 1 to "Sub-Item C"
Send Destroy to hoItems2
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "value + ` ` + available"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComItem of hoColumns5 0 to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFilterType of hoColumn5 to OLEexFilter
Set ComFilter of hoColumn5 to "Item A|Item B"
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComItem of hoColumns6 2 to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComFilter of hoColumn6 to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
527
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
// Occurs after a new item has been inserted to Items collection.
Procedure OnComInsertItem HITEM llItem
Forward Send OnComInsertItem llItem
Variant i
Variant vA
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemToIndex of hoItems llItem to vA
Send Destroy to hoItems
Get ComFormatABC "value + 1" vA Nothing Nothing to i
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellImage of hoItems1 llItem 3 to i
Send Destroy to hoItems1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Col-1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Col-2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Check" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComDef of hoColumn2 OLEexCellHasCheckBox to True
Set ComDisplayFilterButton of hoColumn2 to True
Set ComDisplayFilterPattern of hoColumn2 to False
Set ComFilterType of hoColumn2 to OLEexCheck
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Image" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComDisplayFilterButton of hoColumn3 to True
Set ComFilterType of hoColumn3 to OLEexImage
Set ComFilterList of hoColumn3 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Pos" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComAllowSizing of hoColumn4 to False
Set ComAllowSort of hoColumn4 to False
Set ComWidth of hoColumn4 to 32
Set ComFormatColumn of hoColumn4 to "1 apos ``"
Set ComPosition of hoColumn4 to 0
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "Sub-Item A"
Variant h
Get ComAddItem of hoItems2 "Item B" to h
Set ComCellCaption of hoItems2 h 1 to "Sub-Item B"
Set ComCellState of hoItems2 h 2 to 1
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item C")) 1 to "Sub-Item C"
Send Destroy to hoItems2
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComItem of hoColumns5 0 to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFilterType of hoColumn5 to OLEexFilter
Set ComFilter of hoColumn5 to "Item A|Item B"
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComItem of hoColumns6 2 to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComFilter of hoColumn6 to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
526
|
FilterBarCaption ALLUI Keyword ( sample 1 )
// Occurs after a new item has been inserted to Items collection.
Procedure OnComInsertItem HITEM llItem
Forward Send OnComInsertItem llItem
Variant i
Variant vA
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemToIndex of hoItems llItem to vA
Send Destroy to hoItems
Get ComFormatABC "value + 1" vA Nothing Nothing to i
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellImage of hoItems1 llItem 3 to i
Send Destroy to hoItems1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Col-1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Col-2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Check" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComDef of hoColumn2 OLEexCellHasCheckBox to True
Set ComDisplayFilterButton of hoColumn2 to True
Set ComDisplayFilterPattern of hoColumn2 to False
Set ComFilterType of hoColumn2 to OLEexCheck
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Image" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComDisplayFilterButton of hoColumn3 to True
Set ComFilterType of hoColumn3 to OLEexImage
Set ComFilterList of hoColumn3 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Pos" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComAllowSizing of hoColumn4 to False
Set ComAllowSort of hoColumn4 to False
Set ComWidth of hoColumn4 to 32
Set ComFormatColumn of hoColumn4 to "1 apos ``"
Set ComPosition of hoColumn4 to 0
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "Sub-Item A"
Variant h
Get ComAddItem of hoItems2 "Item B" to h
Set ComCellCaption of hoItems2 h 1 to "Sub-Item B"
Set ComCellState of hoItems2 h 2 to 1
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item C")) 1 to "Sub-Item C"
Send Destroy to hoItems2
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "allui"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComItem of hoColumns5 0 to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFilterType of hoColumn5 to OLEexFilter
Set ComFilter of hoColumn5 to "Item A|Item B"
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComItem of hoColumns6 2 to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComFilter of hoColumn6 to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
529
|
FilterBarCaption ALL Keyword ( sample 2, result )
// Occurs after a new item has been inserted to Items collection.
Procedure OnComInsertItem HITEM llItem
Forward Send OnComInsertItem llItem
Variant i
Variant vA
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemToIndex of hoItems llItem to vA
Send Destroy to hoItems
Get ComFormatABC "value + 1" vA Nothing Nothing to i
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellImage of hoItems1 llItem 3 to i
Send Destroy to hoItems1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Col-1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Col-2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Check" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComDef of hoColumn2 OLEexCellHasCheckBox to True
Set ComDisplayFilterButton of hoColumn2 to True
Set ComDisplayFilterPattern of hoColumn2 to False
Set ComFilterType of hoColumn2 to OLEexCheck
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Image" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComDisplayFilterButton of hoColumn3 to True
Set ComFilterType of hoColumn3 to OLEexImage
Set ComFilterList of hoColumn3 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Pos" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComAllowSizing of hoColumn4 to False
Set ComAllowSort of hoColumn4 to False
Set ComWidth of hoColumn4 to 32
Set ComFormatColumn of hoColumn4 to "1 apos ``"
Set ComPosition of hoColumn4 to 0
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "Sub-Item A"
Variant h
Get ComAddItem of hoItems2 "Item B" to h
Set ComCellCaption of hoItems2 h 1 to "Sub-Item B"
Set ComCellState of hoItems2 h 2 to 1
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item C")) 1 to "Sub-Item C"
Send Destroy to hoItems2
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComItem of hoColumns5 0 to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFilterType of hoColumn5 to OLEexFilter
Set ComFilter of hoColumn5 to "Item A|Item B"
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComItem of hoColumns6 2 to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComFilter of hoColumn6 to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
528
|
FilterBarCaption ALL Keyword ( sample 1 )
// Occurs after a new item has been inserted to Items collection.
Procedure OnComInsertItem HITEM llItem
Forward Send OnComInsertItem llItem
Variant i
Variant vA
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemToIndex of hoItems llItem to vA
Send Destroy to hoItems
Get ComFormatABC "value + 1" vA Nothing Nothing to i
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellImage of hoItems1 llItem 3 to i
Send Destroy to hoItems1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Col-1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Col-2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Check" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComDef of hoColumn2 OLEexCellHasCheckBox to True
Set ComDisplayFilterButton of hoColumn2 to True
Set ComDisplayFilterPattern of hoColumn2 to False
Set ComFilterType of hoColumn2 to OLEexCheck
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Image" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComDisplayFilterButton of hoColumn3 to True
Set ComFilterType of hoColumn3 to OLEexImage
Set ComFilterList of hoColumn3 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Pos" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComAllowSizing of hoColumn4 to False
Set ComAllowSort of hoColumn4 to False
Set ComWidth of hoColumn4 to 32
Set ComFormatColumn of hoColumn4 to "1 apos ``"
Set ComPosition of hoColumn4 to 0
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "Sub-Item A"
Variant h
Get ComAddItem of hoItems2 "Item B" to h
Set ComCellCaption of hoItems2 h 1 to "Sub-Item B"
Set ComCellState of hoItems2 h 2 to 1
Set ComCellCaption of hoItems2 (ComAddItem(hoItems2,"Item C")) 1 to "Sub-Item C"
Send Destroy to hoItems2
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "all"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComItem of hoColumns5 0 to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFilterType of hoColumn5 to OLEexFilter
Set ComFilter of hoColumn5 to "Item A|Item B"
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComItem of hoColumns6 2 to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComFilter of hoColumn6 to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
534
|
Export Data in HTML format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComBackColorAlternate to (RGB(240,240,240))
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderAppearance to OLEEtched
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Set ComFilterBarPromptType to OLEexFilterPromptContainsAny
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 like `*parent*`" "parent" to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(192,192,192))
Send Destroy to hoConditionalFormat
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats "%0 like `*child*`" "child" to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComForeColor of hoConditionalFormat1 to (RGB(255,128,128))
Set ComApplyTo of hoConditionalFormat1 to OLEexFormatToColumns
Send Destroy to hoConditionalFormat1
Variant voConditionalFormat2
Get ComAdd of hoConditionalFormats "%0 like `*B*`" "b" to voConditionalFormat2
Handle hoConditionalFormat2
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2
Set pvComObject of hoConditionalFormat2 to voConditionalFormat2
Set ComForeColor of hoConditionalFormat2 to (RGB(0,0,255))
Set ComBold of hoConditionalFormat2 to True
Set ComItalic of hoConditionalFormat2 to True
Set ComApplyTo of hoConditionalFormat2 to OLEexFormatToColumns
Send Destroy to hoConditionalFormat2
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Value" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 128
Set ComHTMLCaption of hoColumn to "<b>VA</b><r>sko"
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "APos" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "0 apos ``"
Set ComAllowSort of hoColumn1 to False
Set ComDef of hoColumn1 OLEexCellBackColor to 15790320
Set ComDef of hoColumn1 OLEexCellForeColor to 8421504
Set ComDef of hoColumn1 OLEexHeaderForeColor to (ComDef(hoColumn1,OLEexCellForeColor))
Set ComPosition of hoColumn1 to 0
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "RPos" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "0 rpos ``"
Set ComAllowSort of hoColumn2 to False
Set ComPosition of hoColumn2 to 1
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "Index" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "0 index ``"
Set ComDisplayFilterButton of hoColumn3 to True
Set ComFilterList of hoColumn3 to OLEexShowCheckBox
Set ComPosition of hoColumn3 to 2
Send Destroy to hoColumn3
Variant voColumn4
Get ComAdd of hoColumns "Data 1" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "0 index `A-Z`"
Set ComDef of hoColumn4 OLEexCellHasCheckBox to True
Send Destroy to hoColumn4
Variant voColumn5
Get ComAdd of hoColumns "Data 2" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFormatColumn of hoColumn5 to "0 index `AB` replace `A` with `<off -4>A</off>`"
Set ComDef of hoColumn5 OLEexCellSingleLine to False
Set ComDef of hoColumn5 OLEexCellCaptionFormat to 1
Set ComDef of hoColumn5 OLEexCellHasRadioButton to True
Send Destroy to hoColumn5
Variant voColumn6
Get ComAdd of hoColumns "Data 3" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComFormatColumn of hoColumn6 to "0 index `CDC` replace `D` with `<b>D</b>`"
Set ComDef of hoColumn6 OLEexCellCaptionFormat to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "ParentA" to h
Get ComInsertItem of hoItems h "Child A" to Nothing
Get ComInsertItem of hoItems h "Child B" to Nothing
Set ComCellState of hoItems h 4 to 1
Set ComCellBackColor of hoItems (ComInsertItem(hoItems,h,"Child C")) 5 to (RGB(0,255,0))
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Item A" to Nothing
Get ComAddItem of hoItems "ParentB" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComCellBackColor of hoItems (ComInsertItem(hoItems,h,"Child 3")) 5 to (RGB(0,255,0))
Set ComCellState of hoItems h 5 to 1
Get ComAddItem of hoItems "Item B" to Nothing
Get ComAddItem of hoItems "Item C" to Nothing
Get ComAddItem of hoItems "Item D" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
Variant sFile
Move "c:/temp/export.html" to sFile
Get ComExport sFile "vis" to Nothing
Handle hoShellBrowserWindow
Get Create (RefClass(cComShellBrowserWindow)) to hoShellBrowserWindow // Import the 'Microsoft Internet Controls' library
Get ComNavigate2 of hoShellBrowserWindow sFile Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoShellBrowserWindow
End_Procedure
|
|
533
|
Export Data in CSV format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComBackColorAlternate to (RGB(240,240,240))
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderAppearance to OLEEtched
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Set ComFilterBarPromptType to OLEexFilterPromptContainsAny
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 like `*parent*`" "parent" to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(192,192,192))
Send Destroy to hoConditionalFormat
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats "%0 like `*child*`" "child" to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComForeColor of hoConditionalFormat1 to (RGB(255,128,128))
Set ComApplyTo of hoConditionalFormat1 to OLEexFormatToColumns
Send Destroy to hoConditionalFormat1
Variant voConditionalFormat2
Get ComAdd of hoConditionalFormats "%0 like `*B*`" "b" to voConditionalFormat2
Handle hoConditionalFormat2
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2
Set pvComObject of hoConditionalFormat2 to voConditionalFormat2
Set ComForeColor of hoConditionalFormat2 to (RGB(0,0,255))
Set ComBold of hoConditionalFormat2 to True
Set ComItalic of hoConditionalFormat2 to True
Set ComApplyTo of hoConditionalFormat2 to OLEexFormatToColumns
Send Destroy to hoConditionalFormat2
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Value" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 128
Set ComHTMLCaption of hoColumn to "<b>VA</b><r>sko"
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "APos" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "0 apos ``"
Set ComAllowSort of hoColumn1 to False
Set ComDef of hoColumn1 OLEexCellBackColor to 15790320
Set ComDef of hoColumn1 OLEexCellForeColor to 8421504
Set ComDef of hoColumn1 OLEexHeaderForeColor to (ComDef(hoColumn1,OLEexCellForeColor))
Set ComPosition of hoColumn1 to 0
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "RPos" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "0 rpos ``"
Set ComAllowSort of hoColumn2 to False
Set ComPosition of hoColumn2 to 1
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "Index" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "0 index ``"
Set ComDisplayFilterButton of hoColumn3 to True
Set ComFilterList of hoColumn3 to OLEexShowCheckBox
Set ComPosition of hoColumn3 to 2
Send Destroy to hoColumn3
Variant voColumn4
Get ComAdd of hoColumns "Data 1" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "0 index `A-Z`"
Set ComDef of hoColumn4 OLEexCellHasCheckBox to True
Send Destroy to hoColumn4
Variant voColumn5
Get ComAdd of hoColumns "Data 2" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFormatColumn of hoColumn5 to "0 index `AB` replace `A` with `<off -4>A</off>`"
Set ComDef of hoColumn5 OLEexCellSingleLine to False
Set ComDef of hoColumn5 OLEexCellCaptionFormat to 1
Set ComDef of hoColumn5 OLEexCellHasRadioButton to True
Send Destroy to hoColumn5
Variant voColumn6
Get ComAdd of hoColumns "Data 3" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComFormatColumn of hoColumn6 to "0 index `CDC` replace `D` with `<b>D</b>`"
Set ComDef of hoColumn6 OLEexCellCaptionFormat to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "ParentA" to h
Get ComInsertItem of hoItems h "Child A" to Nothing
Get ComInsertItem of hoItems h "Child B" to Nothing
Set ComCellState of hoItems h 4 to 1
Set ComCellBackColor of hoItems (ComInsertItem(hoItems,h,"Child C")) 5 to (RGB(0,255,0))
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Item A" to Nothing
Get ComAddItem of hoItems "ParentB" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComCellBackColor of hoItems (ComInsertItem(hoItems,h,"Child 3")) 5 to (RGB(0,255,0))
Set ComCellState of hoItems h 5 to 1
Get ComAddItem of hoItems "Item B" to Nothing
Get ComAddItem of hoItems "Item C" to Nothing
Get ComAddItem of hoItems "Item D" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","vis"))
End_Procedure
|
|
590
|
Expandable-caption
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStyle to OLESimple
Set ComTreeColumnIndex to -1
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to OLEexGridLinesGeometric
Set ComBackColorAlternate to (RGB(240,240,240))
Set ComShowFocusRect to False
Set ComSingleEdit to True
Set ComSearchColumnIndex to 1
Set ComAdjustSearchColumn to False
Set ComHeaderVisible to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Select" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,"before item")) 1 to "before"
Variant h
Get ComAddItem of hoItems "<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3" to h
Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
Set ComCellSingleLine of hoItems h 0 to False
Set ComCellCaption of hoItems h 1 to "Bank Account"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"after item")) 1 to "after"
Send Destroy to hoItems
Set ComSelect 1 to "after"
Send ComEndUpdate
End_Procedure
|
|
591
|
Expandable-caption
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln llAnchorID
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStyle to OLESimple
Set ComTreeColumnIndex to -1
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to OLEexGridLinesGeometric
Set ComBackColorAlternate to (RGB(240,240,240))
Set ComShowFocusRect to False
Set ComSingleEdit to True
Set ComSearchColumnIndex to 1
Set ComAdjustSearchColumn to False
Set ComHeaderVisible to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Select" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,"before item")) 1 to "before"
Variant h
Get ComAddItem of hoItems "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)" to h
Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
Set ComCellSingleLine of hoItems h 0 to False
Set ComCellCaption of hoItems h 1 to "Bank Account"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"after item")) 1 to "after"
Send Destroy to hoItems
Set ComSelect 1 to "after"
Send ComEndUpdate
End_Procedure
|
|
468
|
Does your control supports scrolling by touching the screen
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComScrollBySingleLine to True
Set ComAutoDrag to (OLEexAutoDragScrollOnShortTouch + OLEexAutoDragScroll)
Send ComEndUpdate
End_Procedure
|
|
405
|
Does your control support RightToLeft property for RTL languages or right to left
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Set ComRightToLeft to True
Send ComEndUpdate
End_Procedure
|
|
357
|
Does your control support prompt feature
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComAutoComplete to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComPrompt of hoColumn to "<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 1 to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 2 to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
22
|
Does your control support partial-check ( three states ) feature for each column
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "P2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn1 to True
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
565
|
Does your control support multiple-selection
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComStyle to OLEDropDownList
Set ComSingleSel to False
Set ComSingleEdit to True
Set ComLabelColumnIndex to 0
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Get ComAdd of hoColumns "Sub-Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 1")) 1 to "SubItem 1.1"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 2")) 1 to "SubItem 2.1"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 3")) 1 to "SubItem 3.1"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 4")) 1 to "SubItem 4.1"
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,1)) to True
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,3)) to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
352
|
Does you control support RTL languages or if there is a property RightToLeft
Procedure OnCreate
Forward Send OnCreate
Set ComRightToLeft to True
Set ComItemsAllowSizing to OLEexResizeItem
Set ComDrawGridLines to OLEexHLines
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComScrollBySingleLine to True
Set ComDefaultItemHeight to 64
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLERightAlignment
Set ComHeaderAlignment of hoColumn to OLERightAlignment
Set ComEditAlignment of hoColumn to OLERightAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Set ComItemHeight of hoItems (ComInsertItem(hoItems,(ComAddItem(hoItems,"Parent")),"Item 2")) to 48
Get ComAddItem of hoItems "Item 3" to Nothing
Set ComExpandItem of hoItems (ComItemByIndex(hoItems,1)) to True
Send Destroy to hoItems
End_Procedure
|
|
319
|
Does the tooltip support HTML format
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
453
|
Does the control have the option to have a horizontal scroll to show entries which are longer than the display
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 512
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 1999. "eXontrol" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site where you can try or buy our products. If you are tired of looking for "powerful" components now it's time to show you real components. No registration required, no nag screens, no limitations, unlimited evaluation time." to Nothing
Get ComAddItem of hoItems "A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing the user either to type a value directly into the control or choose from the list of existing options." to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
121
|
Do you have some function to retrieve all items to a safe array
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Send Destroy to hoItems
Send ComPutItems (ComGetItems(Self,0)) Nothing
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 1 to Nothing
Send Destroy to hoItems1
Send ComPutItems (ComGetItems(Self,0)) Nothing
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 2 to Nothing
Send Destroy to hoItems2
Send ComPutItems (ComGetItems(Self,0)) Nothing
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAddItem of hoItems3 3 to Nothing
Send Destroy to hoItems3
End_Procedure
|
|
122
|
Do you have some function to load data from a safe array
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Send Destroy to hoItems
Send ComPutItems (ComGetItems(Self,0)) Nothing
End_Procedure
|
|
548
|
Do do I get the DAO version I have installed
Procedure OnCreate
Forward Send OnCreate
Variant v
Handle hoPrivDBEngine
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft DAO 2.5/3.51 Compatibility Library' library
Get ComVersion of hoPrivDBEngine to v
Send Destroy to hoPrivDBEngine
Showln v
Variant v1
Handle hoPrivDBEngine1
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine1 // Import the 'Microsoft DAO 3.6 Object Library' library
Get ComVersion of hoPrivDBEngine1 to v1
Send Destroy to hoPrivDBEngine1
Showln v1
Variant v2
Handle hoPrivDBEngine2
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine2 // Import the 'Microsoft Office 15.0 Access database engine Object Library' library
Get ComVersion of hoPrivDBEngine2 to v2
Send Destroy to hoPrivDBEngine2
Showln v2
End_Procedure
|
|
546
|
Do do I get the ADO version I have installed
Procedure OnCreate
Forward Send OnCreate
Variant v
Handle hoConnection
Get Create (RefClass(cComConnection)) to hoConnection // Import the 'Microsoft ActiveX Data Objects 6.1 Library' library
Get ComVersion of hoConnection to v
Send Destroy to hoConnection
Showln "ADO Version:" v
End_Procedure
|
|
605
|
Displays the root item's index and value/caption using expressions
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComAutoDrag to OLEexAutoDragPositionAny
Set ComSingleSel to False
Set ComDrawGridLines to OLEexRowLines
Set ComGridLineStyle to OLEexGridLinesSolid
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CC0 and %CX0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voConditionalFormats1
Get ComConditionalFormats to voConditionalFormats1
Handle hoConditionalFormats1
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats1 "1" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBold of hoConditionalFormat1 to True
Set ComApplyTo of hoConditionalFormat1 to |CI$2
Send Destroy to hoConditionalFormat1
Send Destroy to hoConditionalFormats1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Description" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Index" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "1 index ``"
Set ComPosition of hoColumn1 to 0
Set ComWidth of hoColumn1 to 16
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Root-Index" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "root(1 index ``)"
Set ComPosition of hoColumn2 to 1
Set ComWidth of hoColumn2 to 32
Set ComDef of hoColumn2 OLEexCellBackColor to 15790320
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Root-Value" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "root(%0)"
Set ComPosition of hoColumn3 to 2
Set ComWidth of hoColumn3 to 32
Set ComDef of hoColumn3 OLEexCellBackColor to 15790320
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) "Sub-Child 2" to Nothing
Set ComCellState of hoItems (ComInsertItem(hoItems,h,"Child 3")) 0 to 1
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
604
|
Displays the parent item's index and caption/value using expressions
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComAutoDrag to OLEexAutoDragPositionAny
Set ComSingleSel to False
Set ComDrawGridLines to OLEexRowLines
Set ComGridLineStyle to OLEexGridLinesSolid
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CC0 and %CX0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voConditionalFormats1
Get ComConditionalFormats to voConditionalFormats1
Handle hoConditionalFormats1
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats1 "1" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBold of hoConditionalFormat1 to True
Set ComApplyTo of hoConditionalFormat1 to |CI$2
Send Destroy to hoConditionalFormat1
Send Destroy to hoConditionalFormats1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Description" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Index" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "1 index `I`"
Set ComPosition of hoColumn1 to 0
Set ComWidth of hoColumn1 to 16
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Parent-Index" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "parent(1 index `I`)"
Set ComPosition of hoColumn2 to 1
Set ComWidth of hoColumn2 to 32
Set ComDef of hoColumn2 OLEexCellBackColor to 15790320
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Parent-Value" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "parent(%0)"
Set ComPosition of hoColumn3 to 2
Set ComWidth of hoColumn3 to 32
Set ComDef of hoColumn3 OLEexCellBackColor to 15790320
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) "Sub-Child 2" to Nothing
Set ComCellState of hoItems (ComInsertItem(hoItems,h,"Child 3")) 0 to 1
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
601
|
Displays a glitch funnel for drop-down filter buttons (empty or active)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Set ComRenderType of hoAppearance to -1
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZOiwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYReWAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 -2 0 0 0" to Nothing
Send Destroy to hoAppearance
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to OLEexGridLinesGeometric
Set ComShowFocusRect to False
Set ComBackground OLEexHeaderFilterBarButton to |CI$2000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$2000001
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComHeaderVisible to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "1st col" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilter of hoColumn to "Item B"
Set ComFilterType of hoColumn to OLEexFilter
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "2nd col" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item A" to Nothing
Get ComAddItem of hoItems "Item B" to Nothing
Get ComAddItem of hoItems "Item C" to Nothing
Send Destroy to hoItems
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
587
|
Display a custom tooltip
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip (ComColumnFromPoint(Self,-1,-1)) "" "+8" "+8"
End_Procedure
|
|
592
|
Disable temporarily the column's sort, resize and drag and drop
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSortBarVisible to True
Set ComSortBarCaption to "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
Set ComHeaderEnabled to False
Set ComHeaderAppearance to OLEEtched
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Index" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "1 index ``"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Pos" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "1 apos ``"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "Edit" to Nothing
Send Destroy to hoColumns2
Set ComGridLineStyle to OLEexGridLinesGeometric
Set ComDrawGridLines to OLEexVLines
Send ComEndUpdate
End_Procedure
|
|
588
|
Disable hover-all feature (Windows 11 or greater)
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexScrollHoverAll to (RGB(1,0,0))
End_Procedure
|
|
602
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Country" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComShowIdem of hoColumn to " "
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
603
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Country" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComShowIdem of hoColumn to "<fgcolor gray>〃"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
544
|
DAO, MDB, 120
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Handle hoPrivDBEngine
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft Office 15.0 Access database engine Object Library' library
Variant v
Variant voDatabase
Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb" Nothing Nothing Nothing to voDatabase
Handle hoDatabase
Get Create (RefClass(cComDatabase)) to hoDatabase
Set pvComObject of hoDatabase to voDatabase
Get ComOpenRecordset of hoDatabase "Orders" Nothing Nothing Nothing to v
Send Destroy to hoDatabase
Variant rs
Move v to rs
Send Destroy to hoPrivDBEngine
Set ComDataSource to rs
Set ComValue to 10248
Send ComEndUpdate
End_Procedure
|
|
543
|
DAO, MDB
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Handle hoPrivDBEngine
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft DAO 3.6 Object Library' library
Variant v
Variant voDatabase
Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb" Nothing Nothing Nothing to voDatabase
Handle hoDatabase
Get Create (RefClass(cComDatabase)) to hoDatabase
Set pvComObject of hoDatabase to voDatabase
Get ComOpenRecordset of hoDatabase "Orders" Nothing Nothing Nothing to v
Send Destroy to hoDatabase
Variant rs
Move v to rs
Send Destroy to hoPrivDBEngine
Set ComDataSource to rs
Set ComValue to 10248
Send ComEndUpdate
End_Procedure
|
|
545
|
DAO, ACCDB, 120
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Handle hoPrivDBEngine
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft Office 15.0 Access database engine Object Library' library
Variant v
Variant voDatabase
Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb" Nothing Nothing Nothing to voDatabase
Handle hoDatabase
Get Create (RefClass(cComDatabase)) to hoDatabase
Set pvComObject of hoDatabase to voDatabase
Get ComOpenRecordset of hoDatabase "Orders" Nothing Nothing Nothing to v
Send Destroy to hoDatabase
Variant rs
Move v to rs
Send Destroy to hoPrivDBEngine
Set ComDataSource to rs
Set ComValue to 10248
Send ComEndUpdate
End_Procedure
|
|
582
|
Change the clear-button appearance
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "XP:Window 19 1" to Nothing
Get ComAdd of hoAppearance 2 "XP:Window 19 3" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexClearButtonUp to |CI$1000000
Set ComBackground OLEexClearButtonDown to |CI$2000000
Set ComStyle to OLEDropDownList
Set ComHeaderVisible to False
Set ComIntegralHeight to True
Set ComShowClearButton to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Zero" to Nothing
Get ComAddItem of hoItems "One" to Nothing
Get ComAddItem of hoItems "Two" to Nothing
Send Destroy to hoItems
Set ComSelect 0 to "Zero"
Send ComEndUpdate
End_Procedure
|
|
150
|
Can I use your EBN files to change the visual appearance for radio buttons
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Set ComRadioImage False to 16777216
Set ComRadioImage True to 33554432
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Radio" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasRadioButton to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Radio 1" to Nothing
Set ComCellState of hoItems (ComAddItem(hoItems,"Radio 2")) 0 to 1
Get ComAddItem of hoItems "Radio 3" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
149
|
Can I use your EBN files to change the visual appearance for checkbox cells
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Set ComCheckImage OLEUnchecked to 16777216
Set ComCheckImage OLEChecked to 33554432
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Check 1" to Nothing
Set ComCellState of hoItems (ComAddItem(hoItems,"Check 2")) 0 to 1
Send Destroy to hoItems
End_Procedure
|
|
151
|
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComHasButtons to OLEexCustom
Set ComHasButtonsCustom False to 16777216
Set ComHasButtonsCustom True to 33554432
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
52
|
Can I use my own icons for the +/- ( expand/collapse ) buttons
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComHasButtons to OLEexCustom
Set ComHasButtonsCustom False to 1
Set ComHasButtonsCustom True to 2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
428
|
Can I specify an item to be a separator
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTreeColumnIndex to -1
Set ComSortOnClick to OLEexNoSort
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Numbers" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Variant h
Get ComAddItem of hoItems "separator" to h
Set ComSelectableItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemDividerLine of hoItems h to OLEThinLine
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
430
|
Can I specify a terminal item so it will mark the end of childs
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "P1" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComInsertItem of hoItems h "" "" to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 2
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComInsertItem of hoItems h "" "" to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 2
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
556
|
Can I sort the column by image
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Image" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLEexSortByImage
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellImage of hoItems (ComAddItem(hoItems,Nothing)) 0 to 3
Get ComAddItem of hoItems Nothing to Nothing
Set ComCellImage of hoItems (ComAddItem(hoItems,Nothing)) 0 to 1
Set ComCellImage of hoItems (ComAddItem(hoItems,Nothing)) 0 to 2
Send Destroy to hoItems
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 0 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortOrder of hoColumn1 to OLESortAscending
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Send ComEndUpdate
End_Procedure
|
|
557
|
Can I sort the column by check-state
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComSortType of hoColumn to OLEexSortByState
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems Nothing to Nothing
Set ComCellState of hoItems (ComAddItem(hoItems,Nothing)) 0 to 1
Set ComCellState of hoItems (ComAddItem(hoItems,Nothing)) 0 to 1
Get ComAddItem of hoItems Nothing to Nothing
Send Destroy to hoItems
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 0 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortOrder of hoColumn1 to OLESortAscending
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Send ComEndUpdate
End_Procedure
|
|
599
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Items" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to True
Set ComDef of hoColumn OLEexFilterPatternTemplate to "*<%filter%>*"
Set ComFilterType of hoColumn to OLEexPattern
Set ComFilter of hoColumn to "1"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Send Destroy to hoItems
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
311
|
Can I remove the line being displayed by a divider item
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEEmptyLine
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Send Destroy to hoItems
End_Procedure
|
|
34
|
Can I remove the "All", "Blanks" and "NonBlanks" items in the drop down filter window
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComDescription OLEexFilterBarAll to ""
Set ComDescription OLEexFilterBarBlanks to ""
Set ComDescription OLEexFilterBarNonBlanks to ""
End_Procedure
|
|
31
|
Can I make strikeout the column's header
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHeaderStrikeOut of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
573
|
Can I limit the number of characters the user can type into, similar with text-box's MaxLength property
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Max 2 chars" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComEditMaxLength of hoColumn to 2
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComAutoSearch to False
Set ComAutoComplete to False
End_Procedure
|
|
290
|
Can I let the user to resize at runtime the specified item
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemAllowSizing of hoItems (ComAddItem(hoItems,"resizable item")) to True
Get ComAddItem of hoItems "not resizable item" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
54
|
Can I hide the hierarchy lines
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComHasLines to OLEexNoLine
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
401
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,icon,check,icons,picture"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Text" to h
Set ComCellImage of hoItems h 0 to 1
Send Destroy to hoItems
End_Procedure
|
|
42
|
Can I filter for values using OR - NOT , instead AND operator
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Column 2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterType of hoColumn1 to OLEexBlanks
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Column 3" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComDisplayFilterButton of hoColumn2 to True
Set ComFilterType of hoColumn2 to OLEexBlanks
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Set ComFilterCriteria to "%0 or not %1 and %2"
Send ComApplyFilter
End_Procedure
|
|
8
|
Can I displays a custom size picture to column's header
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHeaderHeight to 48
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "ColumnName" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHTMLCaption of hoColumn to "<b>HTML</b> Column <img>pic1</img> Picture"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
403
|
Can I display the cell's check box after the text
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 1")) 0 to True
Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 2")) 0 to True
Send Destroy to hoItems
End_Procedure
|
|
371
|
Can I display the absolute value or positive part of the number
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Abs" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "abs(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
19
|
Can I display multiple icons to the column's header
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHTMLCaption of hoColumn to "1<img>1</img> 2 <img>2</img>..."
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
161
|
Can I display an additional buttons in the scroll bar
Procedure OnCreate
Forward Send OnCreate
Set ComScrollPartVisible OLEexHScroll OLEexLeftB1Part to True
Set ComScrollPartVisible OLEexHScroll OLEexLeftB2Part to True
Set ComScrollPartVisible OLEexHScroll OLEexRightB6Part to True
Set ComScrollPartVisible OLEexHScroll OLEexRightB5Part to True
End_Procedure
|
|
209
|
Can I display a computed column so it displays the VAT, or SUM
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "A" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "B" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "(A+B)*1.19" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "(%0 + %1) * 1.19"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,1)) 1 to 2
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellCaption of hoItems1 (ComAddItem(hoItems1,10)) 1 to 20
Send Destroy to hoItems1
End_Procedure
|
|
285
|
Can I display a button with some picture or icon inside
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to " Button <img>p1</img> "
Set ComCellCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Set ComItemHeight of hoItems h to 48
Send Destroy to hoItems
End_Procedure
|
|
284
|
Can I display a button with some picture or icon inside
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to " Button <img>1</img> "
Set ComCellCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
283
|
Can I display a button with some icon inside
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to " <img>1</img> "
Set ComCellCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
10
|
Can I disable sorting a column, when the user clicks the column's header, or drag it to the sort bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Unsortable" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAllowSort of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Sortable" to Nothing
Send Destroy to hoColumns1
End_Procedure
|
|
567
|
Can I customize the count of selected items, shown on the right side of the control's label (multiple-selection)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComStyle to OLEDropDownList
Set ComSingleSel to False
Set ComSingleEdit to True
Set ComLabelColumnIndex to 0
Set ComSelBackColor to (RGB(51,153,255))
Set ComSelForeColor to (RGB(255,255,255))
Set ComLabelText to "<bgcolor=3399FF><fgcolor=FFFFFF> %c </fgcolor></bgcolor>"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Get ComAdd of hoColumns "Sub-Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 1")) 1 to "SubItem 1.1"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 2")) 1 to "SubItem 2.1"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 3")) 1 to "SubItem 3.1"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 4")) 1 to "SubItem 4.1"
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,1)) to True
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,3)) to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
378
|
Can I convert the expression to date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "date(dbl(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "30000.99" to Nothing
Get ComAddItem of hoItems "3561.23" to Nothing
Get ComAddItem of hoItems "1232.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
377
|
Can I convert the expression to a number, double or float
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Number + 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "dbl(%0)+2"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
174
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
Procedure OnCreate
Forward Send OnCreate
Set ComFormatAnchor False to "<b><u><fgcolor=880000> </fgcolor></u></b>"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaptionFormat of hoItems (ComAddItem(hoItems,"Just an <a1>anchor</a> element ...")) 0 to OLEexHTML
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellCaptionFormat of hoItems1 (ComAddItem(hoItems1,"Just another <a2>anchor</a> element ...")) 0 to OLEexHTML
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "next item" to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
173
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
Procedure OnCreate
Forward Send OnCreate
Set ComFormatAnchor True to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaptionFormat of hoItems (ComAddItem(hoItems,"Just an <a1>anchor</a> element ...")) 0 to OLEexHTML
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellCaptionFormat of hoItems1 (ComAddItem(hoItems1,"Just another <a2>anchor</a> element ...")) 0 to OLEexHTML
Send Destroy to hoItems1
End_Procedure
|
|
53
|
Can I change the style or type for the hierarchy lines
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComHasLines to OLEexThinLine
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
312
|
Can I change the style of the line being displayed by a divider item
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Set ComScrollBySingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemHeight of hoItems h to 24
Send Destroy to hoItems
End_Procedure
|
|
402
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check,icon,icons,picture"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Text" to h
Set ComCellImage of hoItems h 0 to 1
Set ComCellHasCheckBox of hoItems h 0 to True
Send Destroy to hoItems
End_Procedure
|
|
170
|
Can I change the order of the buttons in the scroll bar
Procedure OnCreate
Forward Send OnCreate
Set ComScrollOrderParts OLEexHScroll to "t,l,r"
Set ComScrollOrderParts OLEexVScroll to "t,l,r"
End_Procedure
|
|
39
|
Can I change the OR string in the filter bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Column 2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterType of hoColumn1 to OLEexNonBlanks
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComFilterCriteria to "%0 or %1"
Set ComDescription OLEexFilterBarOr to " | "
Send ComApplyFilter
End_Procedure
|
|
41
|
Can I change the NOT string in the filter bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Column 2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterType of hoColumn1 to OLEexNonBlanks
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComFilterCriteria to "not %0 or %1"
Set ComDescription OLEexFilterBarNot to " ! "
Set ComDescription OLEexFilterBarIsNonBlank to " ! IsBlank"
Send ComApplyFilter
End_Procedure
|
|
20
|
Can I change the height of the header bar
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderHeight to 32
End_Procedure
|
|
317
|
Can I change the foreground color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
318
|
Can I change the forecolor for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
21
|
Can I change the font to display the column's header
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderHeight to 34
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHTMLCaption of hoColumn to "<font Tahoma;14>Column</font> 1"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
171
|
Can I change the font for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Variant voStdFont
Get ComToolTipFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Tahoma"
Set ComSize of hoStdFont to 14
Send Destroy to hoStdFont
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
172
|
Can I change the font for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
321
|
Can I change the default border of the tooltip, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
320
|
Can I change the background color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
362
|
Can I change the background color for items or cells that contains a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 contains 'hi'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
38
|
Can I change the AND string in the filter bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Column 2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComFilterType of hoColumn1 to OLEexNonBlanks
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComDescription OLEexFilterBarAnd to " & "
Send ComApplyFilter
End_Procedure
|
|
46
|
Can I change the "Today" caption being displayed in the drop down calendar, when I filter for dates
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterDate of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComDescription OLEexFilterBarDateTodayCaption to "Azi"
Send ComApplyFilter
End_Procedure
|
|
43
|
Can I change the "Date:" caption when the column's drop down filter window is shown
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterDate of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComDescription OLEexFilterBarDate to "Range"
Send ComApplyFilter
End_Procedure
|
|
536
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexRowLines
Set ComColumnAutoResize to False
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 128
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is the first line.\r\nThis is the second line.\r\nThis is the third line.")) 0 to OLEexCaptionBreakWrap
Get ComAddItem of hoItems "This is the first line.\r\nThis is the second line.\r\nThis is the third line." to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
535
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexRowLines
Set ComColumnAutoResize to False
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 128
Set ComDef of hoColumn OLEexCellSingleLine to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "This is the first line.\r\nThis is the second line.\r\nThis is the third line." to Nothing
Get ComAddItem of hoItems "This is the first line.\r\nThis is the second line.\r\nThis is the third line." to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
105
|
Can I apply an EBN skin to the control's filter bar so I can change its visual appearance
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComFilterBarBackColor to |CI$1000000
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComApplyFilter
End_Procedure
|
|
431
|
Can I allow sorting only the child items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Childs" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
291
|
Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemHasChildren of hoItems (ComAddItem(hoItems,"parent item with no child items")) to True
Get ComAddItem of hoItems "next item" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
187
|
By default, the column gets sorted descending, when I first click its header. How can I change so the column gets sorted ascending when the user first clicks the column's header
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Sort" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDefaultSortOrder of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
75
|
By default, the column gets sorted as strings, so how do I sort a column by time only
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortTime
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "11:00" to Nothing
Get ComAddItem of hoItems "10:10" to Nothing
Get ComAddItem of hoItems "12:12" to Nothing
Send ComSortChildren of hoItems 0 0 False
Send Destroy to hoItems
End_Procedure
|
|
73
|
By default, the column gets sorted as strings, so how do I sort a column by dates
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortDate
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001" to Nothing
Get ComAddItem of hoItems "1/2/2002" to Nothing
Get ComAddItem of hoItems "1/3/2003" to Nothing
Send ComSortChildren of hoItems 0 0 False
Send Destroy to hoItems
End_Procedure
|
|
74
|
By default, the column gets sorted as strings, so how do I sort a column by date and time
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortDateTime
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 11:00" to Nothing
Get ComAddItem of hoItems "1/1/2001 10:10" to Nothing
Get ComAddItem of hoItems "1/3/2003" to Nothing
Send ComSortChildren of hoItems 0 0 False
Send Destroy to hoItems
End_Procedure
|
|
606
|
Bolds only the expanded items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CX0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Description" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) "Sub-Child 2" to Nothing
Set ComCellState of hoItems (ComInsertItem(hoItems,h,"Child 3")) 0 to 1
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
593
|
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip "new content" "" "+8" "+8"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipMargin to "16,8"
End_Procedure
|
|
539
|
ADOR, MDB
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComValue to 10248
Send ComEndUpdate
End_Procedure
|
|
541
|
ADOR, ACCDB
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComValue to 10248
Send ComEndUpdate
End_Procedure
|
|
540
|
ADODB, MDB
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADODB.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComValue to 10248
Send ComEndUpdate
End_Procedure
|
|
542
|
ADODB, ACCDB, x64
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADODB.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb" OLEadOpenKeyset OLEadLockReadOnly Nothing
Set ComDataSource to rs
Set ComValue to 10248
Send ComEndUpdate
End_Procedure
|
|
531
|
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComDefaultItemHeight to 20
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1mY1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2hhWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQRJSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Position" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "1 rindex ``"
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%C1 mod 2" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to |CI$1000000
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 4" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|